home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / brauman.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-04  |  1.3 KB  |  41 lines
  1. 10  '                       ****** BRAUMAN *******
  2. 20  '
  3. 30  'THE PROGRAM LETS BRAUMAN PICK UP INTERGALACTIC LITTER IN THE FORM OF EMPTIES
  4. 40  '
  5. 50  '
  6. 60  ' J MOVES HIM LEFT     K STOPS LATERAL MOVEMENT     L MOVES HIM RIGHT
  7. 70  'I MAKES THE GAME RUN FASTER           , MAKES IT RUN SLOWER
  8. 80  ' PRESSING THESE KEYS MORE THAN ONCE MAKES THE MOVEMENT QUICKER
  9. 90  '
  10. 100  '
  11. 110  WIDTH 80
  12. 120  CLS:KEY OFF:COLOR 7,0,0:DEFINT A-Z:A$="*":S=0:S$=CHR$(15):P=32:P$=CHR$(2)
  13. 130  PT=40:N=0:TI=0
  14. 140  B=75:S1=0:S2=0
  15. 150  I$="OUT OF FUEL  (ENTER)
  16. 160  K$="CRASH !   (ENTER)
  17. 170  F=250
  18. 180  FOR TIMR=1 TO B:NEXT
  19. 190  T1=T1+1
  20. 200  SOUND PT,2
  21. 210  Y$=INKEY$:IF Y$="J" THEN N=N-1 ELSE IF Y$="K" THEN N=0 ELSE IF Y$="L" THEN N=N+1
  22. 220  IF Y$="I" THEN B=B-10:PT=PT+5
  23. 230  IF Y$="," THEN B=B+10:IF PT->45 THEN PT=PT-5
  24. 240  F=F-1
  25. 250  P=P+N
  26. 260  LOCATE 24,79:PRINT
  27. 270  IF P<5 THEN P=5 ELSE IF P>78 THEN P=78
  28. 280  G=SCREEN(2,(P-N)):IF G=42 THEN I$=K$:GOTO 400 ELSE IF G=2 THEN S=S+10:F=F+2:BEEP
  29. 290  G=SCREEN(1,(P-N)):IF G=42 THEN I$=K$:GOTO 400 ELSE IF G=2 THEN S=S+10:F=F+2:BEEP
  30. 300  G=SCREEN(2,P):IF G=42 THEN I$=K$:GOTO 400 ELSE IF G=2 THEN S=S+10:F=F+2:BEEP
  31. 310  G=SCREEN(1,P):IF G=42 THEN I$=K$:GOTO 400 ELSE IF G=2 THEN S=S+10:F=F+2:BEEP
  32. 320  IF S1<>S THEN S2=S2+1:S1=S
  33. 330  COLOR 7:LOCATE 1,P:PRINT" ":LOCATE 2,P:PRINT S$;:IF RND(P)<0.3 THEN COLOR 7: LOCATE 24,RND(P)*76+1:PRINT P$
  34. 340  LOCATE 25,1:PRINT"FUEL:  ";F;TAB(30)"TIME:  ";T1;TAB(60)"CANS CAPTURED: ";S2
  35. 350  COLOR RND(P)*6+1
  36. 360  LOCATE 24,RND(P)*76+1
  37. 370  PRINT A$
  38. 380  IF F<>0 THEN 180
  39. 400  :SOUND 100,10:SOUND 40,15:LOCATE 3,1:PRINT I$;:INPUT Y$:GOTO 120
  40. 4007  :SOUND 100,10:SOUND 40,15:LOCATE 3,1:PRINT I$;:INPUT Y$:GOTO 120
  41.